	#tag Class
	Protected Class OffTurnActionState
	Implements PlayerActionStates
		#tag Method, Flags = &h0
			Function ToString() As String
			  return "OffTurnActionState"
			End Function
		#tag EndMethod

		#tag Method, Flags = &h0
			Function GetNextTile() As Tile
			  return nil
			End Function
		#tag EndMethod

		#tag Method, Flags = &h0
			Sub Constructor(p as Player)
			  player = p
			  
			End Sub
		#tag EndMethod

		#tag Method, Flags = &h0
			Function AddTileAtPosition(newTile as Tile, position as Coordinates) As boolean
			  return false
			End Function
		#tag EndMethod

		#tag Method, Flags = &h0
			Sub RotateClockwise()
			  //nothing happens here
			End Sub
		#tag EndMethod

		#tag Method, Flags = &h0
			Sub RotateCounterclockwise()
			  //nothing happens here
			End Sub
		#tag EndMethod

		#tag Method, Flags = &h0
			Sub Occupy(s as string)
			  //do nothing
			End Sub
		#tag EndMethod

		#tag Method, Flags = &h0
			Sub CalculateScore()
			  //implement
			End Sub
		#tag EndMethod

		#tag Method, Flags = &h0
			Sub EndRound()
			  //Nothing Happens
			End Sub
		#tag EndMethod


		#tag Property, Flags = &h21
			Private player As Player
		#tag EndProperty


		#tag ViewBehavior
			#tag ViewProperty
				Name="Name"
				Visible=true
				Group="ID"
				InheritedFrom="Object"
			#tag EndViewProperty
			#tag ViewProperty
				Name="Index"
				Visible=true
				Group="ID"
				InitialValue="-2147483648"
				InheritedFrom="Object"
			#tag EndViewProperty
			#tag ViewProperty
				Name="Super"
				Visible=true
				Group="ID"
				InheritedFrom="Object"
			#tag EndViewProperty
			#tag ViewProperty
				Name="Left"
				Visible=true
				Group="Position"
				InitialValue="0"
				InheritedFrom="Object"
			#tag EndViewProperty
			#tag ViewProperty
				Name="Top"
				Visible=true
				Group="Position"
				InitialValue="0"
				InheritedFrom="Object"
			#tag EndViewProperty
		#tag EndViewBehavior
	End Class
	#tag EndClass
